Private Sub UserForm_Initialize()

    Dim  As Range,  As Range
    Dim ׸ As Object, Ű As Variant
    
    Set ׸ = CreateObject("Scripting.Dictionary")
    Set  = Range("D3", Cells(Rows.Count, "D").End(xlUp))

    For Each  In 

        If Not ׸.Exists(.Value) Then
            ׸.Add Key:=.Value, Item:=1
        End If

    Next

    With cmb
        
        For Each Ű In ׸.Keys
            .AddItem Ű
        Next
    
        .ColumnWidths = .Width
        .ListWidth = .Width
    
    End With
    
    Set ׸ = Nothing

End Sub
